home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpegvu / jpegvu.frm < prev    next >
Text File  |  1996-06-29  |  3KB  |  118 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "                                     JPEG Display"
  6.    ClientHeight    =   5820
  7.    ClientLeft      =   1005
  8.    ClientTop       =   930
  9.    ClientWidth     =   7365
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   1
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   6225
  21.    Left            =   945
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   388
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   491
  26.    Top             =   585
  27.    Width           =   7485
  28.    WindowState     =   2  'Maximized
  29.    Begin VB.PictureBox Picture4 
  30.       Appearance      =   0  'Flat
  31.       BackColor       =   &H80000005&
  32.       ForeColor       =   &H80000008&
  33.       Height          =   615
  34.       Left            =   120
  35.       ScaleHeight     =   585
  36.       ScaleWidth      =   1785
  37.       TabIndex        =   3
  38.       Top             =   5160
  39.       Width           =   1815
  40.    End
  41.    Begin VB.PictureBox Picture1 
  42.       Appearance      =   0  'Flat
  43.       BackColor       =   &H80000005&
  44.       ForeColor       =   &H80000008&
  45.       Height          =   1335
  46.       Left            =   3600
  47.       ScaleHeight     =   1305
  48.       ScaleWidth      =   2985
  49.       TabIndex        =   2
  50.       Top             =   5040
  51.       Width           =   3015
  52.    End
  53.    Begin VB.PictureBox Picture3 
  54.       Appearance      =   0  'Flat
  55.       BackColor       =   &H80000005&
  56.       ForeColor       =   &H80000008&
  57.       Height          =   2775
  58.       Left            =   120
  59.       ScaleHeight     =   2745
  60.       ScaleWidth      =   1065
  61.       TabIndex        =   1
  62.       Top             =   1560
  63.       Width           =   1095
  64.    End
  65.    Begin VB.PictureBox Picture2 
  66.       Appearance      =   0  'Flat
  67.       BackColor       =   &H80000005&
  68.       ForeColor       =   &H80000008&
  69.       Height          =   2895
  70.       Left            =   7440
  71.       ScaleHeight     =   2865
  72.       ScaleWidth      =   2025
  73.       TabIndex        =   0
  74.       Top             =   3480
  75.       Width           =   2055
  76.    End
  77. End
  78. Attribute VB_Name = "Form1"
  79. Attribute VB_Creatable = False
  80. Attribute VB_Exposed = False
  81.  
  82. Private Sub Form_Click()
  83. End
  84. End Sub
  85.  
  86. Private Sub Form_Paint()
  87. Picture4.Print "Click for next JPEG"
  88. Picture4_Click
  89. End Sub
  90.  
  91.  
  92. Private Sub Picture4_Click()
  93. Select Case jpegnum
  94. Case 0
  95. nam$ = "d:\jpeg\10074823.jpg"
  96. Case 1
  97. nam$ = "d:\jpeg\10074825.jpg"
  98. Case 2
  99. nam$ = "d:\jpeg\10075248.jpg"
  100. Case 3
  101. nam$ = "d:\jpeg\10075256.jpg"
  102. Case 4
  103. nam$ = "d:\jpeg\10075298.jpg"
  104. Case Else
  105. nam$ = "d:\jpeg\hmg0014.jpg"
  106. End Select
  107.  
  108. jpegnum = (jpegnum + 1) Mod 6
  109. Call displayjpeg
  110.  
  111.  
  112. End Sub
  113.  
  114.  
  115. Private Sub Text1_Click()
  116. End Sub
  117.  
  118.